﻿Public Class AnimationExplosionLand
    Inherits ObjektAnimation
    ''' <summary>
    ''' Fuehrt eine Explosion aus und zerstoert die Einheit
    ''' </summary>
    ''' <param name="X"></param>
    ''' <param name="Y"></param>
    ''' <remarks></remarks>
    Public Sub New(ByVal X As Integer, ByVal Y As Integer, ByVal Musikspielen As Boolean, ByVal Schlacht As Integer)
        MyBase.New(Musikspielen, Schlacht)
        P.X = X
        P.Y = Y
        Frames = 8
        BildID = LoadTextur("Explosion+Land", Frames)
        If DataSettings.MusikSound Then
            MusikEngine.LoadWav(DataSettings.Resourcenpfad + "Sound\Sound Effects\Overworld\Explosion+Land.wav", False)
        End If
    End Sub
End Class
